object TutorDefine: TTutorDefine Left = 612 Top = 192 Width = 323 Height = 500 HelpContext = 230 BorderIcons = [biSystemMenu] Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] KeyPreview = True Menu = MainMenu1 OldCreateOrder = True Scaled = False OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 17 object Tutorbox7: TListBox Left = 0 Top = 61 Width = 315 Height = 389 HelpContext = 230 Align = alClient DragMode = dmAutomatic ItemHeight = 37 PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 7 OnClick = Tutorbox9Click OnDblClick = Tutorbox1DblClick OnDragDrop = Tutorbox1DragDrop OnDragOver = Tutorbox1DragOver OnDrawItem = Tutorbox1DrawItem OnKeyDown = Tutorbox9KeyDown end object Tutorbox8: TListBox Left = 0 Top = 61 Width = 315 Height = 389 HelpContext = 230 Align = alClient DragMode = dmAutomatic ItemHeight = 37 PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 8 OnClick = Tutorbox9Click OnDblClick = Tutorbox1DblClick OnDragDrop = Tutorbox1DragDrop OnDragOver = Tutorbox1DragOver OnDrawItem = Tutorbox1DrawItem OnKeyDown = Tutorbox9KeyDown end object Tutorbox9: TListBox Left = 0 Top = 61 Width = 315 Height = 389 HelpContext = 230 Align = alClient DragMode = dmAutomatic ItemHeight = 37 PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 9 OnClick = Tutorbox9Click OnDblClick = Tutorbox1DblClick OnDragDrop = Tutorbox1DragDrop OnDragOver = Tutorbox1DragOver OnDrawItem = Tutorbox1DrawItem OnKeyDown = Tutorbox9KeyDown end object TutorBox10: TListBox Left = 0 Top = 61 Width = 315 Height = 389 HelpContext = 230 Align = alClient DragMode = dmAutomatic ItemHeight = 37 PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 10 OnClick = Tutorbox9Click OnDblClick = Tutorbox1DblClick OnDragDrop = Tutorbox1DragDrop OnDragOver = Tutorbox1DragOver OnDrawItem = Tutorbox1DrawItem OnKeyDown = Tutorbox9KeyDown end object Panel1: TPanel Left = 0 Top = 0 Width = 315 Height = 61 Align = alTop BevelOuter = bvNone TabOrder = 0 object Bevel2: TBevel Left = 0 Top = 37 Width = 315 Height = 5 Align = alBottom Shape = bsTopLine end object SpeedButton4: TSpeedButton Left = 7 Top = 6 Width = 28 Height = 28 Hint = 'New tutor' Flat = True Glyph.Data = { 06030000424D060300000000000036000000280000000F0000000F0000000100 180000000000D002000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF 0000000000000000000000000000000000000000000000000000000000000000 00BFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF000000BFBFBFBFBFBF 000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 00BFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF000000BFBFBFBFBFBF 000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 00BFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF000000BFBFBFBFBFBF 000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 00BFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF000000BFBFBFBFBFBF 000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 00BFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFF000000000000000000000000BFBFBFBFBFBF000000BFBFBFBFBFBF 000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF000000BFBF BFBFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFF000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF 000000000000000000000000000000000000000000000000BFBFBFBFBFBFBFBF BFBFBFBFBFBFBF000000} ParentShowHint = False ShowHint = True OnClick = SpeedButton4Click end object SpeedButton2: TSpeedButton Left = 34 Top = 6 Width = 28 Height = 28 Hint = 'Open tutor' Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000 000000000000000000000000000000000000000000000000000000BFBFBFBFBF BFBFBFBFBFBFBFBFBFBF000000000000007F7F007F7F007F7F007F7F007F7F00 7F7F007F7F007F7F007F7F000000BFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF 000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F0000 00BFBFBFBFBFBFBFBFBF000000FFFFFF00FFFF000000007F7F007F7F007F7F00 7F7F007F7F007F7F007F7F007F7F007F7F000000BFBFBFBFBFBF00000000FFFF FFFFFF00FFFF000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F 7F007F7F000000BFBFBF000000FFFFFF00FFFFFFFFFF00FFFF00000000000000 000000000000000000000000000000000000000000000000000000000000FFFF FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF000000BFBFBFBFBF BFBFBFBFBFBFBFBFBFBF000000FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFF FFFF00FFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF FFFFFF00FFFF000000000000000000000000000000000000000000BFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBF000000BFBFBFBFBFBFBFBFBF000000BFBFBF000000BFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF} ParentShowHint = False ShowHint = True OnClick = SpeedButton2Click end object SpeedButton3: TSpeedButton Left = 61 Top = 6 Width = 28 Height = 28 Hint = 'Save tutor' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888 00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888 00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000 00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF 0003737FFFFFFFFF7F7330099999999900333777777777777733} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click OnMouseDown = SpeedButton6MouseDown end object Label1: TLabel Left = 0 Top = 42 Width = 315 Height = 19 Align = alBottom AutoSize = False OnClick = Speed1Click end object SpeedButton1: TSpeedButton Left = 281 Top = 6 Width = 30 Height = 28 Hint = 'HELP!!!' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB 3333333773FFFF77333333333FBFBF3333333333377777333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object Bevel1: TBevel Left = 0 Top = 0 Width = 315 Height = 9 Align = alTop Shape = bsTopLine end object SpeedButton5: TSpeedButton Left = 112 Top = 6 Width = 28 Height = 28 Flat = True Glyph.Data = { 32010000424D320100000000000036000000280000000B000000070000000100 180000000000FC00000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000000000 0000000000000000000000000000000000000000000000000000000000000000 0000BFBFBF000000000000000000000000000000000000000000000000000000 BFBFBF000000BFBFBFBFBFBF0000000000000000000000000000000000000000 00BFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF00000000000000000000000000 0000BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF000000000000 000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF BF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000} ParentShowHint = False ShowHint = True OnClick = SpeedButton5Click end object SpeedButton6: TSpeedButton Left = 139 Top = 6 Width = 28 Height = 28 Flat = True Glyph.Data = { 0E010000424D0E0100000000000036000000280000000B000000060000000100 180000000000D800000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBF BFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF00 0000BFBFBFBFBFBFBFBFBF000000000000000000000000000000BFBFBFBFBFBF BFBFBF000000BFBFBFBFBFBF0000000000000000000000000000000000000000 00BFBFBFBFBFBF000000BFBFBF00000000000000000000000000000000000000 0000000000000000BFBFBF000000000000000000000000000000000000000000 000000000000000000000000000000000000} ParentShowHint = False ShowHint = True OnClick = SpeedButton6Click end object Image1: TImage Left = 210 Top = 10 Width = 15 Height = 15 Picture.Data = {} Visible = False end end object Tutorbox1: TListBox Left = 0 Top = 61 Width = 315 Height = 389 HelpContext = 230 Align = alClient DragMode = dmAutomatic ItemHeight = 37 PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 1 OnClick = Tutorbox9Click OnDblClick = Tutorbox1DblClick OnDragDrop = Tutorbox1DragDrop OnDragOver = Tutorbox1DragOver OnDrawItem = Tutorbox1DrawItem OnKeyDown = Tutorbox9KeyDown end object Tutorbox2: TListBox Left = 0 Top = 61 Width = 315 Height = 389 HelpContext = 230 Align = alClient DragMode = dmAutomatic ItemHeight = 37 PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 2 OnClick = Tutorbox9Click OnDblClick = Tutorbox1DblClick OnDragDrop = Tutorbox1DragDrop OnDragOver = Tutorbox1DragOver OnDrawItem = Tutorbox1DrawItem OnKeyDown = Tutorbox9KeyDown end object Tutorbox3: TListBox Left = 0 Top = 61 Width = 315 Height = 389 HelpContext = 230 Align = alClient DragMode = dmAutomatic ItemHeight = 37 PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 3 OnClick = Tutorbox9Click OnDblClick = Tutorbox1DblClick OnDragDrop = Tutorbox1DragDrop OnDragOver = Tutorbox1DragOver OnDrawItem = Tutorbox1DrawItem OnKeyDown = Tutorbox9KeyDown end object Tutorbox4: TListBox Left = 0 Top = 61 Width = 315 Height = 389 HelpContext = 230 Align = alClient DragMode = dmAutomatic ItemHeight = 37 PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 4 OnClick = Tutorbox9Click OnDblClick = Tutorbox1DblClick OnDragDrop = Tutorbox1DragDrop OnDragOver = Tutorbox1DragOver OnDrawItem = Tutorbox1DrawItem OnKeyDown = Tutorbox9KeyDown end object Tutorbox5: TListBox Left = 0 Top = 61 Width = 315 Height = 389 HelpContext = 230 Align = alClient DragMode = dmAutomatic ItemHeight = 37 PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 5 OnClick = Tutorbox9Click OnDblClick = Tutorbox1DblClick OnDragDrop = Tutorbox1DragDrop OnDragOver = Tutorbox1DragOver OnDrawItem = Tutorbox1DrawItem OnKeyDown = Tutorbox9KeyDown end object Tutorbox6: TListBox Left = 0 Top = 61 Width = 315 Height = 389 HelpContext = 230 Align = alClient DragMode = dmAutomatic ItemHeight = 37 PopupMenu = PopupMenu1 Style = lbOwnerDrawFixed TabOrder = 6 OnClick = Tutorbox9Click OnDblClick = Tutorbox1DblClick OnDragDrop = Tutorbox1DragDrop OnDragOver = Tutorbox1DragOver OnDrawItem = Tutorbox1DrawItem OnKeyDown = Tutorbox9KeyDown end object MainMenu1: TMainMenu Left = 178 Top = 66 object File1: TMenuItem Caption = 'File' GroupIndex = 1 object Newtutor1: TMenuItem Caption = 'New...' OnClick = SpeedButton4Click end object Loadtutor1: TMenuItem Caption = 'Open...' OnClick = SpeedButton2Click end object Savetutor1: TMenuItem Caption = 'Save...' OnClick = SpeedButton3Click end object Insert1: TMenuItem Caption = 'Insert...' OnClick = Insert1Click end object N1: TMenuItem Caption = '-' end object Tutorproperties1: TMenuItem Caption = 'Tutor properties...' OnClick = Speed1Click end object N2: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'Close' OnClick = Exit1Click end end object Step1: TMenuItem Caption = 'Step' GroupIndex = 1 OnClick = PopupMenu1Popup object Getsetupfromexercisesetup2: TMenuItem Caption = 'Get setup from exercise setup' OnClick = Getsetupfromexercisesetup2Click end object N4: TMenuItem Caption = '-' end object New1: TMenuItem Caption = 'New...' OnClick = New1Click end object Delete1: TMenuItem Caption = 'Delete' OnClick = Deletestep1Click end object N6: TMenuItem Caption = '-' end object Properties2: TMenuItem Caption = 'Properties...' OnClick = Tutorbox1DblClick end end object Help1: TMenuItem Caption = 'Help' GroupIndex = 1 object Contexthelp1: TMenuItem Caption = 'Context help' OnClick = SpeedButton1Click end end end object SaveDialog1: TSaveDialog HelpContext = 170 DefaultExt = 'tut' Filter = 'EarMaster tutor|*.TUT' Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp, ofPathMustExist] Title = 'Save tutor' Left = 214 Top = 66 end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 146 Top = 66 object SetupfromExSetup1: TMenuItem Caption = 'Get setup from exercise setup' OnClick = Getsetupfromexercisesetup2Click end object N3: TMenuItem Caption = '-' end object Newstep1: TMenuItem Caption = 'New step' OnClick = New1Click end object Deletestep1: TMenuItem Caption = 'Delete step' OnClick = Deletestep1Click end object N5: TMenuItem Caption = '-' end object Properties1: TMenuItem Caption = 'Properties...' OnClick = Tutorbox1DblClick end end end